C**** USE THIS FOR READING FILES FROM TRS80 OVER PHONE LINE. ****
C   PUT "*" IN 1ST COLUMN OF LAST LINE OF INPUT FILE TO CAUSE AUTO END.
	DIMENSION I(20,1000)
	DOUBLE PRECISION KK
1	FORMAT(' TYPE OUTPUT NAME  '$)
	TYPE 1
2	FORMAT(A10)
	ACCEPT 2,KK
	CALL DEFINE(1,0,NONO,KK)
C  'DEFINE' PUTS OUT FILE WITH NO EXTENSION (ONLY USING 1)
6	FORMAT('    TYPE "*" WHEN INPUT IS COMPLETE'/)
	TYPE 6
3	FORMAT(20A5)
	N=1
C NOW JUST LOADS UP MEMORY - SHOULD BE FASTER
4	ACCEPT 3,(I(JJ,N),JJ=1,20)
	IF(I(1,N).EQ.'*')GO TO 5
	N=N+1
	IF(N.LE.1000)GO TO 4 
	TYPE 99
99	FORMAT(' ****** MORE THAN 1000 LINES.  BREAK UP THE FILE.')
5	DO 11 L=1,N-1
	DO 10 K=20,1,-1
10	IF(I(K,L).NE.' ')GO TO 11
11	WRITE(1,3)(I(J,L),J=1,K)
7	FORMAT(1XA10,' HAS BEEN WRITTEN')
 	TYPE 7,KK
	END